! $Header: e:\proj\3uscript/rcs\3user.scc 2.0 1996/02/16 19:36:08 Mark_Hadfield Exp $

! $Log: 3user.scc $
! Revision 2.0  1996/02/16  19:36:08  Mark_Hadfield
! 3USCRIPT release 2.0
!
! Revision 1.1  1995/10/03  21:04:48  Mark_Hadfield
! Initial revision
!



NEXISTS "m:\cis\switch\Guide.on" goto dispatch
ALERT ":-) Mark's 3user script $Revision 1.2 $"
GOTO dispatch

 

 







noprompt:
NEXISTS "m:\cis\switch\Guide.on" goto infnoprompt
ALERT "Compuserve has not responded with a prompt"
GOTO logoff
infnoprompt:
BEEP 5,300
INFO "Compuserve has not responded with a prompt"
WAIT 20
GOTO logoff

unknownpage:
NEXISTS "m:\cis\switch\Guide.on" goto infnopage
ALERT "Unknown page. Ask Mark to edit the script again!"
GOTO logoff
infnopage:
BEEP 5,300
INFO "Unknown page. Time to edit the script again!"
WAIT 20
GOTO logoff



dispatch:
 

 








EXISTS "a:\sco\Address.sco" GOTO aaddress
EXISTS "b:\sco\Address.sco" GOTO baddress
EXISTS "m:\sco\Address.sco" GOTO maddress



EXISTS "a:\sco\Files.sco" GOTO afiles
EXISTS "b:\sco\Files.sco" GOTO bfiles
EXISTS "m:\sco\Files.sco" GOTO mfiles



EXISTS "a:\sco\Uk_Tv.sco" GOTO auktv
EXISTS "b:\sco\Uk_Tv.sco" GOTO buktv
EXISTS "m:\sco\Uk_Tv.sco" GOTO muktv



EXISTS "a:\sco\Charges.sco" GOTO acharges
EXISTS "b:\sco\Charges.sco" GOTO bcharges
EXISTS "m:\sco\Charges.sco" GOTO mcharges


NEXISTS "m:\cis\switch\user2.on" GOTO user2off
EXISTS "a:\sco\3user2.sco" GOTO atwo
EXISTS "b:\sco\3user2.sco" GOTO btwo
EXISTS "m:\sco\3user2.sco" GOTO mtwo

GOTO farewell

user2off:
NEXISTS "m:\cis\switch\Guide.on" GOTO farewell
ALERT ":-O User2.on switch not set. Skipping."
GOTO farewell

farewell:
NEXISTS "m:\cis\switch\Guide.on" goto logoff
ALERT ":-O No other scripts installed. Logging off."
GOTO logoff



aaddress:
NEXISTS "m:\cis\switch\Guide.on" goto callaaddress
ALERT ":-) Address installed on A:"
callaaddress:
CALL "a:\sco\Address.sco"

baddress:
NEXISTS "m:\cis\switch\Guide.on" goto callbaddress
ALERT ":-) Address installed on B:"
callbaddress:
CALL "b:\sco\Address.sco"

maddress:
NEXISTS "m:\cis\switch\Guide.on" goto callmaddress
ALERT ":-) Address installed on M:"
callmaddress:
CALL "m:\sco\Address.sco"



afiles:
NEXISTS "m:\cis\switch\Guide.on" goto callafiles
ALERT ":-) Files installed on A:"
callafiles:
CALL "a:\sco\Files.sco"

bfiles:
NEXISTS "m:\cis\switch\Guide.on" goto callbfiles
ALERT ":-) Files installed on B:"
callbfiles:
CALL "b:\sco\Files.sco"

mfiles:
NEXISTS "m:\cis\switch\Guide.on" goto callmfiles
ALERT ":-) Files installed on M:"
callmfiles:
CALL "m:\sco\Files.sco"



auktv:
NEXISTS "m:\cis\switch\Guide.on" goto callauktv
ALERT ":-) Uk_Tv installed on A:"
callauktv:
CALL "a:\sco\uk_tv.sco"

buktv:
NEXISTS "m:\cis\switch\Guide.on" goto callbuktv
ALERT ":-) Uk_Tv installed on B:"
callbuktv:
CALL "b:\sco\uk_tv.sco"

muktv:
NEXISTS "m:\cis\switch\Guide.on" goto callmuktv
ALERT ":-) Uk_Tv installed on M:"
callmuktv:
CALL "m:\sco\uk_tv.sco"



acharges:
NEXISTS "m:\cis\switch\Guide.on" goto callacharges
ALERT ":-) Charges installed on A:"
callacharges:
CALL "a:\sco\Charges.sco"

bcharges:
NEXISTS "m:\cis\switch\Guide.on" goto callbcharges
ALERT ":-) Charges installed on B:"
callbcharges:
CALL "b:\sco\Charges.sco"

mcharges:
NEXISTS "m:\cis\switch\Guide.on" goto callmcharges
ALERT ":-) Charges installed on M:"
callmcharges:
CALL "m:\sco\Charges.sco"


atwo:
NEXISTS "m:\cis\switch\Guide.on" goto callatwo
ALERT ":-) 3user2 installed on A:"
callatwo:
CALL "a:\sco\3user2.sco"

btwo:
NEXISTS "m:\cis\switch\Guide.on" goto callbtwo
ALERT ":-) 3user2 installed on B:"
callbtwo:
CALL "b:\sco\3user2.sco"

mtwo:
NEXISTS "m:\cis\switch\Guide.on" goto callmtwo
ALERT ":-) 3user2 installed on M:"
callmtwo:
CALL "m:\sco\3user2.sco"


logoff:
SENDWAIT 360 "go top", "!" GOTO bombout
bombout:
EXISTS "a:\app\readcis\Logoff.sco" GOTO alogoff
EXISTS "b:\app\readcis\Logoff.sco" GOTO blogoff
EXISTS "m:\app\readcis\Logoff.sco" GOTO mlogoff
GOTO mylogoff

alogoff:
CALL "a:\app\readcis\Logoff.sco"
blogoff:
CALL "b:\app\readcis\Logoff.sco"
mlogoff:
CALL "m:\app\readcis\Logoff.sco"

mylogoff:
SENDWAIT 60 "off", "Connect" GOTO modemhangup

modemhangup:
SENDWAIT 20 "+++", "OK" GOTO disconnect
SENDWAIT 60 "ATH", "NO CARRIER" GOTO terminate 
WAIT 20

disconnect:
HANGUP

terminate:
EXIT